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-- file SymTabDefs.Mesa 

-- last modified by Satterthwaite, August 16, 1977 11:22 AM 

DIRECTORY 

StringDefs: FROM "stringdef s" , 
SymDefs: FROM "symdefs"; 

SymTabDefs: DEFINITIONS « 
BEGIN 
OPEN SymDefs; 

-- implemented by SymbolTable 

-- hash manipulation 

FindString: PROCEDURE [StringDefs .Substring] RETURNS [found: BOOLEAN, hti: HTIndex]; 

hashforse: PROCEDURE [ISEIndex] RETURNS [HTIndex]; 

hashvalue: PROCEDURE [StringDefs .SubStr ing] RETURNS [HVIndex]; 

SubStringForHash: PROCEDURE [StringDefs .Substring . HTIndex]; 

-- context management 

firstctxse: PROCEDURE [CTXIndex] RETURNS [ISEIndex]; 
nextse: PROCEDURE [ISEIndex] RETURNS [ISEIndex]; 

searchcontext: PROCEDURE [hti: HTIndex, ctx: CTXIndex] RETURNS [found: BOOLEAN, sei: ISEIndex]; 

-- type manipulation 

undertype: PROCEDURE [SEIndex] RETURNS [CSEIndex]; 
typeclass: PROCEDURE [SEIndex] RETURNS [TypeClass]; 
xfermode: PROCEDURE [SEIndex] RETURNS [Transf erMode] ; 
wordsfortype, cardinality: PROCEDURE [SEIndex] RETURNS [CARDINAL]; 

-- implemented by SymTab (extensions for building tables) 

symtabinit, symtaberase: PROCEDURE; 

-- hash manipulation 

EnterString: PROCEDURE [Str ingDefs .Substring] RETURNS [HTIndex]; 
hashblock: PROCEDURE RETURNS [base: POINTER, length: CARDINAL]; 

-- context management 

nextlevel: PROCEDURE [ContextLevel ] RETURNS [ContextLevel ]; 
makenewctx: PROCEDURE [ContextLevel] RETURNS [CTXIndex]; 
resetctxlist: PROCEDURE [CTXIndex]; 

ctxentries: PROCEDURE [CTXIndex] RETURNS [CARDINAL]; 
firstvisiblese: PROCEDURE[CTXIndex] RETURNS [ISEIndex]; 
visiblectxentries: PROCEDURE [CTXIndex] RETURNS [CARDINAL]; 
contextvariant: PROCEDURE [CTXIndex] RETURNS [ISEIndex]; 

StaticNestError: SIGNAL; 

fnfield: PROCEDURE [ISEIndex] RETURMS [offset: bitaddress, size: CARDINAL]; 

makectxse: PROCEDURE [hti: HTIndex. ctx: CTXIndex] RETURNS [ISEIndex]; 
makenonctxse: PROCEDURE [CARDINAL] RETURNS [CSEIndex]; 

makeSCChain: PROCEDURE [CTXIndex, CARDINAL. BOOLEAN] RETURNS [ISETndex]; 
fillcLxse: PROCfDURE [ISEIndex. HTIndex, BOOLEAN]; 
NameClash: SIGNAL [hti: HTIndex]; 
setselink: nROCrOURf [sei. next: ISEIndex]; 

-- type man ipulation 

typeroot: PROCFnURf [SEIndex] RETURNS [CSEIndex]; 

lypelink: PROCrOURf [SEIndex] RETURNS [SEIndex]; 

record! ink, recordroot: PROCEDURE [ recordCSf I ndex] RETURNS [ recordCSE Index ] ; 

-- attribute testing 

Constantld: PROCEDURf [ISEIndex] RTTURNS [BOOIEAN]: 
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END... 



